﻿'Params
'metro : The metro name to fetch the charts list for.
'api_key (Required) : A Last.fm API key.
'Auth
'This service does not require authentication. 

Public Class GeoGetMetroWeeklyChartlist
	Inherits BaseRequest
    Dim metro As String = ""

    Public xmlresponse As XDocument = Nothing

    Public Sub New(metro As String)
        Me.metro = metro
    End Sub

    Public Sub sendRequest()
        InitializeMembers("geo.getMetroWeeklyChartlist")

        AddMember("metro", metro, False)
        AddMember("api_key", My.Settings.api_key, False)

        xmlresponse = sendPOSTResponse()
    End Sub

    '	Public Function getResponse() As AlbumGetInfoResponse
    '	Dim response As New AlbumGetInfoResponse
    '		response.album = New Album(xmlresponse.<lfm>.<album>.First)
    '		Return response
    '	End Function
End Class
